Micom Basic 1995 August

home *** CD-ROM | disk | FTP | other *** search

/ Micom Basic 1995 August / CD [BM9508].bin / basic / toukou / n88basic / golfk.bas < prev

Wrap

BASIC Source File | 1995-06-13 | 19.5 KB | 285 lines

1000 '****************************************************************** 1010 ' ûεê≤âOâïât (ë≡ôÜò╥) T.Kodama 1020 '****************************************************************** 1030 CLEAR &H100:DEFINT A-Z:SCREEN 3,0,0,1:DIM CH(1551),P(7),MP(15,11) 1040 CONSOLE 0,25,0,1:GOSUB 1800:REV=0 1050 CLS 3:INPUT "No.",MEN$:MEN=VAL(MEN$):IF MEN<1 OR MEN>10 THEN 1050 1060 '----( ╣▐░╤ ëµû╩ )------------------------------------------------------ 1070 GOSUB 1600:A$=CHR$(29)+CHR$(31):GSW=0 1080 LINE (524,8)-(636,40),3,B:LOCATE 67,1:COLOR 6:PRINT "ûεê≤âSâïât"; 1090 LINE (524,56)-(636,88),3,B:LOCATE 70,4:PRINT "No.";MEN; 1100 LINE (524,104)-(636,280),3,B:LOCATE 67,7:PRINT "ê┌ô«"; 1110 LOCATE 72,9:PRINT "8"+A$+"|"+A$+CHR$(31)+CHR$(31)+CHR$(31)+"|"+A$+"2"; 1120 LOCATE 67,12:PRINT "4-- --6";:PUT@ (564,184),CH(P(7)),PSET 1130 LINE (524,296)-(636,376),3,B:LOCATE 67,19:PRINT "G .. ì─ÆºÉφ"; 1140 LOCATE 67,20:PRINT "N .. Äƒëµû╩";:LOCATE 67,21:PRINT "D .. âfâéé╓"; 1150 LOCATE 67,22:PRINT "E .. ÅIù╣";:COLOR 7 1160 '----( ╥▓▌ ┘░╠▀ )------------------------------------------------------- 1170 IF MEN= 1 THEN RESTORE 3030 ELSE IF MEN= 2 THEN RESTORE 3060 1180 IF MEN= 3 THEN RESTORE 3140 ELSE IF MEN= 4 THEN RESTORE 3210 1190 IF MEN= 5 THEN RESTORE 3300 ELSE IF MEN= 6 THEN RESTORE 3370 1200 IF MEN= 7 THEN RESTORE 3430 ELSE IF MEN= 8 THEN RESTORE 3530 1210 IF MEN= 9 THEN RESTORE 3600 ELSE IF MEN=10 THEN RESTORE 3710 1220 READ Q$:FOR Q=1 TO LEN(Q$):K$=MID$(Q$,Q,1):GOSUB 1250:FOR QQ=1 TO 700:NEXT 1230 NEXT:IF GSW=0 THEN 1220 ELSE GOSUB 1490:GOTO 1050 1240 '----( ê┌ô« )----------------------------------------------------------- 1250 DX=(K$="4")-(K$="6"):DY=(K$="8")-(K$="2"):IF DX=0 AND DY=0 THEN RETURN 1260 XX=XM+DX:YY=YM+DY:IF MP(XX,YY)=0 THEN 1280 1270 IF MP(XX,YY)>1 AND MP(XX,YY)<6 THEN 1290 ELSE RETURN 1280 X=XM:Y=YM:GOSUB 1730:XM=XX:YM=YY:GOSUB 1740:RETURN 1290 X1=XX+DX:Y1=YY+DY:IF MP(X1,Y1)=0 THEN 1320 ELSE IF MP(X1,Y1)=6 THEN 1410 1300 IF MP(X1,Y1)>1 AND MP(X1,Y1)<6 THEN 1330 ELSE RETURN 1310 IF MP(X1,Y1)=6 THEN 1410 ELSE GOTO RETURN 1320 MP(X1,Y1)=MP(XX,YY):X=X1:Y=Y1:GOSUB 1730:MP(XX,YY)=0:GOTO 1280 1330 IF DY=-1 AND MP(XX,YY)=2 THEN 1360 ELSE IF DY=1 AND MP(XX,YY)=4 THEN 1360 1340 IF DX=-1 AND MP(XX,YY)=3 THEN 1360 ELSE IF DX=1 AND MP(XX,YY)=5 THEN 1360 1350 RETURN 1360 IF DY=-1 AND MP(X1,Y1)=4 THEN MP(XX,YY)=0:GOTO 1400 1370 IF DY= 1 AND MP(X1,Y1)=2 THEN MP(XX,YY)=0:GOTO 1400 1380 IF DX=-1 AND MP(X1,Y1)=5 THEN MP(XX,YY)=0:GOTO 1400 1390 IF DX= 1 AND MP(X1,Y1)=3 THEN MP(XX,YY)=0:GOTO 1400 ELSE GOTO 1320 1400 MP(X1,Y1)=0:X=X1:Y=Y1:GOSUB 1730:GOTO 1280 1410 IF MP(XX,YY)=2 THEN DX=0:DY=-1:GOTO 1440 1420 IF MP(XX,YY)=3 THEN DX=-1:DY=0:GOTO 1440 1430 IF MP(XX,YY)=4 THEN DX=0:DY=1 ELSE DX=1:DY=0 1440 X2=X1+DX:Y2=Y1+DY:WHILE MP(X2,Y2)=0:MP(X2,Y2)=6:MP(X1,Y1)=0:X=X1:Y=Y1 1450 GOSUB 1730:X=X2:Y=Y2:GOSUB 1730:X1=X2:Y1=Y2 1460 X2=X1+DX:Y2=Y1+DY:WEND:IF MP(X2,Y2)<>7 THEN RETURN 1470 X=X2-DX:Y=Y2-DY:MP(X,Y)=0:GOSUB 1730:GSW=1:RETURN 1480 '----( û╩ ╕╪▒ )--------------------------------------------------------- 1490 LINE (136,152)-(356,216),7,BF:LINE (144,160)-(348,208),1,BF 1500 LOCATE 21,11:PRINT "éΓé┴é╜é╦üIé▌é▒é┐éßé±"; 1510 RESTORE 1530:FOR I=1 TO 3:READ M1$,M2$,M3$,M4$,M5$ 1520 NEXT:RETURN 1530 DATA @23@V120T120Q4O5*E8L16EDQ7G4Q4L16REEDE8L16ED 1540 DATA @23@V120T120Q4O5*C8L16C<G>Q7E4Q4L16RCCC-C8L16C<G> 1550 DATA @23@V120T120Q4O4*G8L16GEQ7>C4L16Q4<RGGEG8L16GE,V15T120O3R2C2 1560 DATA V15T120O2R2C2,A8G4.L16REEDE8L16ED,F8E4.L16RCCC-C8L16C<G> 1570 DATA >C8C4.L16<RGGEG8L16GE,R4R8L16GGC2,R4R8L16GGC2 1580 DATA L8AFFA>C2O0,L8FCCFG2O0,L8>C<GG>CE2O0,R2C2O0,R2C2O0 1590 '----( û╩ò\Äª )--------------------------------------------------------- 1600 CLS 3:FOR Y=0 TO 11:FOR X=0 TO 15:MP(X,Y)=1:GOSUB 1730:NEXT:NEXT 1610 IF MEN= 1 THEN RESTORE 2820 ELSE IF MEN= 2 THEN RESTORE 2840 1620 IF MEN= 3 THEN RESTORE 2860 ELSE IF MEN= 4 THEN RESTORE 2880 1630 IF MEN= 5 THEN RESTORE 2900 ELSE IF MEN= 6 THEN RESTORE 2920 1640 IF MEN= 7 THEN RESTORE 2940 ELSE IF MEN= 8 THEN RESTORE 2960 1650 IF MEN= 9 THEN RESTORE 2980 ELSE IF MEN=10 THEN RESTORE 3000 1660 FOR Y=1 TO 10:X=1:READ A$:FOR I=1 TO 7:K=ASC(MID$(A$,I,1))-48 1670 IF K>9 THEN K=K-7 1680 MP(X,Y)=K\6:GOSUB 1730:X=X+1:MP(X,Y)=K MOD 6:GOSUB 1730:X=X+1:NEXT:NEXT 1690 READ A$,B$,C$,D$,E$,F$:XM=VAL("&H"+A$):YM=VAL("&H"+B$):GOSUB 1740 1700 X=VAL("&H"+C$):Y=VAL("&H"+D$):MP(X,Y)=6:GOSUB 1730 1710 X=VAL("&H"+E$):Y=VAL("&H"+F$):MP(X,Y)=7:GOSUB 1730:RETURN 1720 '----( ╖¼╫╕└ ò\Äª )----------------------------------------------------- 1730 P=MP(X,Y)-1:GOSUB 1750:RETURN 1740 X=XM:Y=YM:P=7:GOSUB 1750:RETURN 1750 IF P>-1 THEN 1770 ELSE IF REV=0 THEN C=0 ELSE C=7 1760 LINE (X*32,Y*32)-(X*32+31,Y*32+31),C,BF:RETURN 1770 IF REV=0 THEN PUT@ (X*32,Y*32),CH(P(P)),PSET:RETURN 1780 PUT@ (X*32,Y*32),CH(P(P)),PRESET:RETURN 1790 '----( ╖¼╫╕└ É▌ÆΦ )----------------------------------------------------- 1800 CLS 3:LOCATE 26,10:PRINT "é╡é╬éτé¡é¿æ╥é┐ë║é│éó"; 1810 RESTORE 1850:M=1:FOR I=0 TO 1551:IF M=1 THEN READ A$ 1820 CH(I)=VAL("&H"+MID$(A$,M,4)):M=M+4:IF M>LEN(A$) THEN M=1 1830 NEXT:FOR I=0 TO 7:P(I)=I*194:NEXT:RETURN 1840 '----( ╖¼╫╕└ ├▐░└ )----------------------------------------------------- 1850 DATA 0020002018181818EFEFEFEF0808080818181818EFEFEFEF08080808FFFFFFFF0808 1860 DATA 080808080808FFFFFFFFFFFFFFFFFFFFFFFF81818181FEFEFEFE8080808081818181 1870 DATA FEFEFEFE80808080FFFFFFFF8080808080808080FFFFFFFFFFFFFFFFFFFFFFFF1818 1880 DATA 1818EFEFEFEF0808080818181818EFEFEFEF08080808FFFFFFFF0808080808080808 1890 DATA FFFFFFFFFFFFFFFFFFFFFFFF81818181FEFEFEFE8080808081818181FEFEFEFE8080 1900 DATA 8080FFFFFFFF8080808080808080FFFFFFFFFFFFFFFFFFFFFFFF18181818EFEFEFEF 1910 DATA 0808080818181818EFEFEFEF08080808FFFFFFFF0808080808080808FFFFFFFFFFFF 1920 DATA FFFFFFFFFFFF81818181FEFEFEFE8080808081818181FEFEFEFE80808080FFFFFFFF 1930 DATA 8080808080808080FFFFFFFFFFFFFFFFFFFFFFFF18181818EFEFEFEF080808081818 1940 DATA 1818EFEFEFEF08080808FFFFFFFF0808080808080808FFFFFFFFFFFFFFFFFFFFFFFF 1950 DATA 81818181FEFEFEFE8080808081818181FEFEFEFE80808080FFFFFFFF808080808080 1960 DATA 8080FFFFFFFFFFFFFFFFFFFFFFFF 1970 DATA 002000200000000000000000010000800000000000000000030000C0000000000000 1980 DATA 0000070000E001000080000000000E000070030000C0000000001C000038070000E0 1990 DATA 000000003800001C0F0000F0000000007000000E1F0000F800000000E00000073F00 2000 DATA 00FC00000000C00180037F0000FE000000008003C001FF0000FF000000000007E000 2010 DATA FF0180FF00000000000E7000FF03C0FF00000000001C3800FF07E0FF000000000038 2020 DATA 1C007F0000FE00000000807FFE017F0000FE0000000080FFFF017F0000FE00000000 2030 DATA 800180017F0000FE00000000800180017F0000FE00000000800180017F0000FE0000 2040 DATA 0000800180017F0000FE00000000800180017F0000FE00000000800180017F0000FE 2050 DATA 00000000800180017F0000FE00000000800180017F0000FE00000000800180017F00 2060 DATA 00FE00000000800180017F0000FE00000000800180017F0000FE0000000080018001 2070 DATA 7F0000FE00000000800180017F0000FE00000000800180010000000000000000FF01 2080 DATA 80FF0000000000000000FF0180FF 2090 DATA 00200020000000000000000001000000000000000000000003000000000000000000 2100 DATA 00000700000000000000000000000F00000000000000000000001F00000004000000 2110 DATA 000000003B0000000C00000000000000730000001C00000000000000E300FFFF3C00 2120 DATA 000000000000C301FFFF7F00FCFF0000000080030300FF00FCFF0000000000070300 2130 DATA FF01FCFF00000000000E0300FF03FCFF00000000001C0300FF07FCFF000000000038 2140 DATA 0300FF0FFCFF0000000000700300FF1FFCFF0000000000E00300FF1FFCFF00000000 2150 DATA 00E00300FF0FFCFF0000000000700300FF07FCFF0000000000380300FF03FCFF0000 2160 DATA 0000001C0300FF01FCFF00000000000E0300FF00FCFF00000000000703007F00FCFF 2170 DATA 00000000800303003C00000000000000C301FFFF1C00000000000000E300FFFF0C00 2180 DATA 0000000000007300000004000000000000003B00000000000000000000001F000000 2190 DATA 00000000000000000F00000000000000000000000700000000000000000000000300 2200 DATA 0000000000000000000001000000 2210 DATA 002000200000000000000000FF0180FF0000000000000000FF0180FF7F0000FE0000 2220 DATA 0000800180017F0000FE00000000800180017F0000FE00000000800180017F0000FE 2230 DATA 00000000800180017F0000FE00000000800180017F0000FE00000000800180017F00 2240 DATA 00FE00000000800180017F0000FE00000000800180017F0000FE0000000080018001 2250 DATA 7F0000FE00000000800180017F0000FE00000000800180017F0000FE000000008001 2260 DATA 80017F0000FE00000000800180017F0000FE00000000800180017F0000FE00000000 2270 DATA 80FFFF017F0000FE00000000807FFE01FF07E0FF0000000000381C00FF03C0FF0000 2280 DATA 0000001C3800FF0180FF00000000000E7000FF0000FF000000000007E0007F0000FE 2290 DATA 000000008003C0013F0000FC00000000C00180031F0000F800000000E00000070F00 2300 DATA 00F0000000007000000E070000E0000000003800001C030000C0000000001C000038 2310 DATA 01000080000000000E0000700000000000000000070000E000000000000000000300 2320 DATA 00C0000000000000000001000080 2330 DATA 002000200000000000000000000000800000000000000000000000C0000000000000 2340 DATA 0000000000E00000000000000000000000F00000000000000000000000F800000020 2350 DATA 00000000000000DC0000003000000000000000CE0000003800000000FFFF00C70000 2360 DATA 003C00000000FFFF80C3FF3F00FE0000000000C0C001FF3F00FF0000000000C0E000 2370 DATA FF3F80FF0000000000C07000FF3FC0FF0000000000C03800FF3FE0FF0000000000C0 2380 DATA 1C00FF3FF0FF0000000000C00E00FF3FF8FF0000000000C00700FF3FF8FF00000000 2390 DATA 00C00700FF3FF0FF0000000000C00E00FF3FE0FF0000000000C01C00FF3FC0FF0000 2400 DATA 000000C03800FF3F80FF0000000000C07000FF3F00FF0000000000C0E000FF3F00FE 2410 DATA 0000000000C0C0010000003C00000000FFFF80C30000003800000000FFFF00C70000 2420 DATA 003000000000000000CE0000002000000000000000DC0000000000000000000000F8 2430 DATA 0000000000000000000000F00000000000000000000000E000000000000000000000 2440 DATA 00C0000000000000000000000080 2450 DATA 0020002000000000000000000000000000000000070000F000000000000000003F00 2460 DATA 00FE0000000000000000FF0080FF0000000000000000FF01C0FF0000000000000000 2470 DATA FF03E0FF0000000000000000FF07F0FF0000000078000000FF0FF8FF78000000FC00 2480 DATA 0000CF1FFCFFFC000000FC000000871FFCFFFC000000FC000200873FFEFFFC000000 2490 DATA FC000000CF3FFEFFFC00000078000200FF3FFEFF7800000000000500FF7FFFFF0000 2500 DATA 000000000300FF7FFFFF0000000000000500FF7FFFFF0000000000000B00FF7FFFFF 2510 DATA 0000000000001700FF7FFFFF0000000000000F00FF7FFFFF0000000000001700FF7F 2520 DATA FFFF0000000000002E00FF3FFEFF0000000000005E00FF3FFEFF000000000000BE00 2530 DATA FF3FFEFF0000000000007C01FF1FFCFF000000000000FC02FF1FFCFF000000000000 2540 DATA F805FF0FF8FF000000000000F00BFF07F0FF000000000000E057FF03E0FF00000000 2550 DATA FF01C0FFFF01C0FF00000000FF0080FFFF0080FF000000003F0000FE3F0000FE0000 2560 DATA 0000070000F0070000F000000000 2570 DATA 00200020000000000000000000000000020000000E0000000C000000030000000F00 2580 DATA 00000C000000030000800F0000800C000000030000C00F0000C00C000000030000F0 2590 DATA 0F0000F00C000000030000F80F0000F80C000000030000FC0F0000FC0C0000000300 2600 DATA 00FE0F0000FE0C000000030000FF0F0000FF0C000000030080FF0F0080FF0C000000 2610 DATA 0300C0FF0F00C0FF0C0000000300F0FF0F00F0FF0C0000000300F8FF0F00F8FF0C00 2620 DATA 00000300FCFF0F00FCFF0C0000000300FEFF0F00FEFF0C0000000300FFFF0F00FFFF 2630 DATA 0C000000000000000C0000000C000000000000000C0000000C000000000000000C00 2640 DATA 00000C000000000000000C0000000C000000000000000C0000000C00000000000000 2650 DATA 0C0000000C000000000000000C0000000C000000000000000C0000000C0000000000 2660 DATA 00000C000000FF0300F0F30100E00C0000000C060018F30300F00C0000000C0C000C 2670 DATA F30300F00C0000000C0C000CFF0100E000000000000E001C0000000000000000FF07 2680 DATA 00F80000000000000000FF0300F0 2690 DATA 0020002000000000000000001F0000F800000000000000003F0000FC000000000000 2700 DATA 00007F0000FE0000000000000000FF0000FF070000E0070000E0FF0180FF0F0000F0 2710 DATA 0F0000F0FF0180FF3F0000FC3F0000FCFF03C0FF3F0000FC3F0000FCFF03C0FF7F00 2720 DATA 00FE730000CEF303C0CFFF0000FFF30000CFF303C0CFFF0000FFF30000CFF307E0CF 2730 DATA FF0000FFF30000CFF30FF0CFFF0000FFFF0000FFFF0FF0FFFF0000FFFF0000FFFF0F 2740 DATA F0FF7F0000FE7F0000FEFC0FF03F3F0000FC3F0000FCFE0FF07F1F0000F81F0000F8 2750 DATA FF0FF0FF0F0000F00F0000F0FF07E0FF078001E0078001E0FF83C1FF00C003000FC0 2760 DATA 03F0F0C1830F00FC3F00FFFFFFFF00FC3F0000FC3F00FFFFFFFF00FC3F00007C3E00 2770 DATA FF7FFEFF007C3E00000000003F0000FC00000000000000003F0000FC000000000000 2780 DATA 00003F0000FC00000000000000003F0000FC00000000000000003F0000FC00000000 2790 DATA 3C00003C3C00003C3C00003C3C00003C3C00003C3C00003C000000007C00003E0000 2800 DATA 000000000000FC00003F00000000 2810 '----( û╩ ├▐░└ (0ü`9,Aü`Z) )-------------------------------------------- 2820 DATA C000003,170U164,1060613,101100B,10110I0,10610O0,1701006,105O610 2830 DATA 100C160,000C000,7,1,5,7,9,7 2840 DATA 0000000,171670O,0500716,7717606,6000006,0710077,0616660,0616IC0 2850 DATA 0C06667,6006000,E,4,C,A,E,5 2860 DATA 0100000,0T17176,0031106,71711C6,U000000,11J1136,1111166,1011006 2870 DATA 1771776,0050000,3,1,4,3,B,6 2880 DATA 5GK1010,TEI111A,Y507100,UP761Y9,HV00176,010710C,A766106,0066106 2890 DATA 0306006,28I6100,1,1,E,A,D,1 2900 DATA 006O100,406600I,10661PC,160C110,0666117,0606000,0607150,370C110 2910 DATA 017771C,1000030,E,6,B,4,1,A 2920 DATA 0000076,15P66X0,0210766,1014606,1000606,17177D6,0000006,1776776 2930 DATA 1300C09,0000000,1,A,4,1,E,1 2940 DATA 6010604,0000646,5010006,13D6620,1016776,15P0XU6,1010006,13D7716 2950 DATA 1700170,0000000,B,4,E,4,B,8 2960 DATA 0010000,Y71163I,00000OA,0070006,6051176,0777000,2701U90,0171060 2970 DATA 0001276,770100C,8,3,E,2,5,7 2980 DATA 0000000,6177706,6000006,0767716,0600340,0077710,0170110,0010500 2990 DATA 16117D0,0610000,B,5,D,5,4,A 3000 DATA 0000600,P167676,1000000,11AJ6C6,5Z006C6,167V606,1300006,1011406 3010 DATA V77D176,0000000,8,5,1,5,B,1 3020 '----( ë±ôÜ├▐-└ )------------------------------------------------------- 3030 DATA 422684866666666222222242244444448442666666666886224444448444668888 3040 DATA 882222242486888688848862222224222244488668622426884426666862426666 3050 DATA 686688884484426662682222442644444884886888886666666222224422486844 3060 DATA 888444222242224622448882666686624444224488642266888848644426686228 3070 DATA 442266668662484224422668244888888662484222228662244488442266668886 3080 DATA 624444462244888826688844444222224448626868888666666888866624484222 3090 DATA 624444444446222244488886666666644444888844442266644488666622222228 3100 DATA 884442222662668444668888666662224488684446666868884444442222222242 3110 DATA 688888444222288866622422426866248886884442224266626888888886668844 3120 DATA 422222288666668662444444422422448888664422226688688888244448866666 3130 DATA 6666666 3140 DATA 422622666666222666882244488866664444442222266666668888844444444444 3150 DATA 222668822448886666664444448848862222666688446226688884444244462226 3160 DATA 666884448422866662244444688884426622226622244888826666668888444424 3170 DATA 442666644224422222666664444888886666668844662266222666888444468888 3180 DATA 444422662222228888444444222226666668888866666884262444468888444422 3190 DATA 662222228888444444222226666666666664444488888884448422866662222222 3200 DATA 4444448888866666666888866666222884444422226 3210 DATA 666444222226222888488622224266488888488622222242668628448888888666 3220 DATA 622444666884444222222242668626624688888666888866226662222228888844 3230 DATA 488442222222266626688882222448888642222668888888444884422224442222 3240 DATA 444488888888662484222222242666626888848666862222426648888888866226 3250 DATA 662224442226224882448888444222244448888888866662244484222222426666 3260 DATA 268888486668622224266686242668888662222448444888844422224444888888 3270 DATA 624226884886624842222224266662688884866686222242664888888886622666 3280 DATA 222442242448888444222244448888888866662444842222222426666268888486 3290 DATA 6686222242666868842228886662222448884866422226688888888 3300 DATA 444222244444444844888888886662222226266644484888888444222222226626 3310 DATA 666666688886624842228866622244488884488886622228884422226626684446 3320 DATA 888844222228888866686624484222884422226666222624488844222444444448 3330 DATA 448888888866622266668866622288444222626688822244848886668662444484 3340 DATA 262228886622224468888444222886666662248684444484226244446662288444 3350 DATA 224488666688666222244882248684444622448888266666226622224444444484 3360 DATA 48888888686622486844 3370 DATA 666666688866688486268822422444222666666888888822222224444448884448 3380 DATA 866886886626664448444442228886662242244666888222444226666668886884 3390 DATA 484446222244488486226668888446662662224224442224444486666268822666 3400 DATA 666888888884422242244444666688688844844222244422666666444444888442 3410 DATA 686228666888866266222422444444444668884486688426244466884442222222 3420 DATA 28888866662222666222668424444444488866666662242666666 3430 DATA 844422262666844424888848862426668624268886224266448444844444422222 3440 DATA 222666666666666868888844484444844442226688486668624266668624266448 3450 DATA 444484444442222222266666666666686888888884444224448442224884844268 3460 DATA 666668624266668624266488866222222222888884448444484442224226622624 3470 DATA 444668884488868844242222222666688848888688442666686242666444844422 3480 DATA 222688882222226666266668688888448844244484484226222244268886888444 3490 DATA 242222222666688888884866686222224266664448888844424446222226622444 3500 DATA 488888888662268848666642222222666626666868888844884424484446662668 3510 DATA 662444666266222224244444484488888886662222888444244866668622222426 3520 DATA 66 3530 DATA 662668444446622262248888486626848866284426644224222222688848666626 3540 DATA 888224444488844444244866666666268486664422422666622486688888844442 3550 DATA 224226666268444422226664448888888688666622228844484226248422688666 3560 DATA 622224444488486268422266662262244444888848844844444222422688868844 3570 DATA 268666884444286666226662666684886624842624424444844884442666226622 3580 DATA 444468844222224226684248868866848422222426666626684444848888866688 3590 DATA 444222222288866666866668444444446688444222222242666662688 3600 DATA 222448442226666824444888662666488862222266688888446622222444888888 3610 DATA 844444226666444488444886666666666622222222244488888222448442666444 3620 DATA 226666888822226668888844444444666666662222486844444666668888888442 3630 DATA 242222888868866222222222444444488866266642266888824444844266644422 3640 DATA 666688882266688844444446666662248684462224488882666888844224444466 3650 DATA 668842222888844444444226666666444444488666666666662222444882266222 3660 DATA 448888266688884422444444444666666668842222666888844444444444422666 3670 DATA 666664444444886666666666622224448822662224488882666888844224444444 3680 DATA 448422222426862426644888886666226666444488666662222288888444444444 3690 DATA 222668666666444488666666886622222224448888266688884422444444444842 3700 DATA 222624842228888688866666666626244444444484222224266 3710 DATA 448844488666284442266666662222444442448666666642224488226688844442 3720 DATA 488266666686688844444444668844422286662268486666222668884444448844 3730 DATA 422664488666222624444666688666662462244886844442244448888666222624 3740 DATA 466886662222422244444444888822266666688888848666622266244444446666 3750 DATA 662484442226688684462224488888226668886222624484228666888886622222 3760 DATA 224444444444446666688888488884444422222222266666688888444688666666 3770 DATA 222244444442448666666268888684444444666666222224224444444488888668 3780 DATA 886662268486666444444422666862228888488444222866666662222242244444 3790 DATA 444888886664886666666266844444444666222244488488826668844442222448 3800 DATA 888666662266662222242266666888888844444444446688444222866622622444 3810 DATA 884468888442222222288866622666662224444444488888666226662288888844 3820 DATA 442244222226666666666664448886668888662222222444444488888884444226 3830 DATA 66862284442266666626888848666444222224226666688888888